(byte-optimize-form-code-walker): Only call compiler-macroexpand if

the function has a cl-compiler-macro property.

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 64280a4d549f0ebf1c9a4f329894c672df9ce8f5..3453d1d71b6c03befd75b1d08c1b6492545fecc2 100644 (file)
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -510,6 +510,8 @@
 
          ;; Support compiler macros as in cl.el.
          ((and (fboundp 'compiler-macroexpand)
+               (symbolp (car-safe form))
+               (get (car-safe form) 'cl-compiler-macro)
                (not (eq form
                         (setq form (compiler-macroexpand form)))))
           (byte-optimize-form form for-effect))